home *** CD-ROM | disk | FTP | other *** search
/ Language/OS - Multiplatform Resource Library / LANGUAGE OS.iso / sml_nj / 93src.lha / src / cps / shareglue.sml < prev    next >
Encoding:
Text File  |  1993-01-27  |  818 b   |  36 lines
  1. (* shareglue.sml
  2.  *
  3.  * Copyright 1989 by AT&T Bell Laboratories
  4.  *
  5.  * shareglue: a functor application common to all architectures.
  6.  *)
  7.  
  8. functor IntShare(structure Machm: CODEGENERATOR
  9.          functor Debugger : DEBUGGER
  10.          val fileExtension: string) =
  11. struct
  12.   structure Comp = CompileUnit(structure Machm = Machm)
  13.  
  14.   structure Inter = Interact(structure Machm = Machm)
  15.  
  16.   structure Foo = InitHooks(structure Interact = Inter
  17.                 structure Compile = Comp)
  18.  
  19.   (* initializations *)
  20.   val _ =
  21.     (Environment.pervasiveEnvRef := BootEnv.makePervEnv();
  22.      Environment.topLevelEnvRef := Environment.emptyEnv;
  23.      System.architecture := fileExtension)
  24.  
  25.   structure DebugFoo = Debugger(structure Machm = Machm)
  26.  
  27.   (* launch interactive loop *)
  28.   val _ =
  29.     (System.Print.say "Go for it\n";
  30.      Inter.interact())
  31.  
  32. end
  33.  
  34.  
  35.  
  36.